home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 5
/
Aminet 5 - March 1995.iso
/
Aminet
/
util
/
rexx
/
xdmd1.lha
/
CopyRec.xdme
< prev
next >
Wrap
Text File
|
1994-10-27
|
411b
|
20 lines
/* CopyRec.xdme */
/* This copies a block of text that is marked both as
* a rectangle and as a vertical block */
arg start end
width = end - start
bsave "T:temp"
call open(input,"T:temp","R")
call open(output,"T:rectangle","W")
do forever
line = substr(readln(input),start,width)
if eof(input) then leave
call writeln(output,line)
end
call close(input)
call close(output)
call delete("T:temp")